home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
science
/
sm32a.zip
/
LIBRARY
/
MAX.LI
< prev
next >
Wrap
Text File
|
1993-12-23
|
187b
|
9 lines
# max
# e.g. max([1,2,3]) gives 3
max(x_) := if(islist(x),
block(max:=member(x,1), len:=length(x),
do( if(member(x,j)>max, max:=member(x,j)), j,2,len,1),
max,
local(len) ))